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O jogo premiado este mês foi intitulado pelo seu 
autor, de «Torpedo B». O Sr. Adriano de Carvalho 
é um «jovem» de 62 anos que, com o entusiasmo 
da sua juventude, deitou mãos à obra de contruir 
um jogo aliciante para distracção do seu neto. 

Em face do resultado, pensou melhor e resolveu 

enviar-nos a sua produção para que outros netos 

se divertissem. 

Pensamos que este é um bom exemplo de como 
a «juventude» nada tem a ver com a data do 
nascimento. Talvez que outros «avós» sigam o 
exemplo do nosso amigo Adriano de Carvalho. 
Lembramos que, aos leitores dos programas 

premiados, oferecemos dois prémios: 

uma assinatura semestral de «JOGOS SORTIDOS» 
e um volume encadernado da revista de banda 

desenhada «JORNAL DA BD». à 
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ENVIE- NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PRÉMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de telefone. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. — 1200 LISBOA 


25 


EN 


e 


A 





Jogo escrito por Adriano de Carvalho, para o Spec- 
trum 48K ou 16K. Este nosso “jovem” leitor tem 62 
anos e escreveu-o para alegria do seu neto. Esperamos 
que dê a mesma alegria aos muitos di destes 
agradáveis passatempos. 


DESCRIÇÃO GERAL DO JOGO: 


Trata-se de um jogo simples em que um submarino 
armado de torpedos tenta evitar a passagem de navios 
de guerra inimigos. Os impactos têm tantos mais pontos, 
quanto menos torpedos forem utilizados em cada dis- 
paro. Sempre que o navio passa, o jogo pára podendo 
ser recomeçado com o registo do máximo de pontos 
atingidos. * 

Por sua vez o submarino está sujeito a ataques de 
bombas de profundidade lançadas pelo navio. Se for 
atingido perde-se direito aos pontos inclusive os má- 
ximos. 


EXPLICAÇÃO DO PROGRAMA: | 
Na linha 1, o Poke 23658,8 é como se sabe um 
dispositivo para obrigar o teclado a maiúsculas. 
A linha 2 dá as indicações para o jogo. 
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As linhas 4 a 14 são respeitantes aos gráficos, pelo 
que nas linhas 140 e 190 as respectivas letras devem 
ser metidas em modo gráfico. Nas linhas 20 a 100 
encontram-se as variáveis cujas funções são: 


r — n.º de pontos máximo; s — score normal; x — coor- 
denada horizontal do submarino; y — coordenada vertical 
do torpedo; p — n.º de pontos por cada impacto; n — 


coordenada horizontal do navio; c — coordenada hori- 


zontal do torpedo; ss — estabelece a condição do sub- 
'marino (activo ou afundado); yy — coordenada vertical 
“das bombas de ba da 


As linhas 120 e 130 proporcionam os comandos do 
submarino. 

“À linha 160 dá o movimento do navio em forma semi- 
aleatória. 

A linha 213 dá o comando do disporã do torpedo. 

As condições de impacto do navio e do submarino 
são concretizadas respectivamente nas linhas 270 e 
208 com a utilização da função SCREENS, cujo valor 
depende dos atributos (cor) do alvo. 

A linha 160 estabelece também a condição de pas- 
sagem do navio (n » 29). 
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O objectivo deste jogo é o de dar 
caça às estrelas (inverse '*X”) que 
nascem continuamente. Se houver 
quatro estrelas sobrepostas, uma 
das suas vidas estará perdida. A sua 


tarefa é evitar que se forme um tal: 


agrupamento de estrelas, destruin- 
do-as à medida que se formam. Se 
as atingir, serão destruídas, mas não 
por muito tempo. 

O jogo termina quando termina- 
rem as suas vidas que, à partida, 
são três. Se bater o recorde da pon- 
tuação pode fazer entrar o seu nome 
(até treze caracteres), e, no fim do 
jogo, ficam à sua disposição as duas 
seguintes opções: 
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Tecla 1 para obter instruções. 
Tecla 2 para jogar de novo. 


Fazendo «1» ou «2» obterá as res- 


postas apropriadas. Também lhe é : 


oferecida uma vida suplementar se 
atingir os 2000 pontos. 

O programa está dividido em duas 
partes, BASIC e código máquina. 
Este último imprime o resultado em 
caracteres invertidos no lado supe- 
rior esquerdo do écran. Nessa altu- 
ra, acrescenta 10 pontos. 

Antes de mais, introduza o «code 
loader» e faça RUN. O computador 
mostra uma série de memórias e 
pedir-lhe-á para INPUT alguns nú- 


CAÇA 
AS ESTRELAS 


meros que são dados na figura 1 
(Disassembly listing). De seguida in- 
troduza a BASIC listing e estará 
pronto para começar. 

Os caracteres gráficos na linha 
310 são caracteres na chave «A». 

Para poupar (SAVE) o jogo, intro- 
duza GOTO 9000. O jogo faz o SAVE 
automático e, só depois, começa. 
Se entender que o resultado neces- 
sário para ganhar uma vida suple- 
mentar, é muito alto, então altere 
a linha 830 conforme desejar. 


resultado mais alto 


É 


écran 
8499-8610 - Rotina da vida suple- 


7999-8300 - Introduz o nome e o 
mentar 


5999-7530 — Rotina do fim do jogo 


4999-5060 - Imprime as vidas no 
“e imprime as instruções 


8999-9030 - Rotina do SAVE 


vida» 


* 


CAÇA ÀS ESTRELAS 
2999-3230 —- Sub-rotina do disparo 
3999-4210 - Rotina da «perda da 


1999-2040 - Move a nave para a 
da nave 


999-1040 - Move a nave para a es- 
direita 


470-480 — Rotina da chave de partida 
querda 


489-840 - Programa principal 


de disparo 


Eq 


ecran 


trói as variáveis 
399-460 — Variáveis usadas na rotina 


99-210 — Imprime as instruções no 


Ed 


10-90 — Torna o écran negro e cons- 


LISTAGEM BASIC 
1 —- Código máquina 
220-390 — Imprime o 
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MOONIRON 


Escrito por Christopher Herbert, MOONIRON é um 
jogo aliciante que o manterá preso ao seu computador 
durante muitas horas. Sem se enfastiar... 

Alguém tratou de roubar o Cristal de Mooniron e 
guardá-lo na nave espacial. Ora o Cristal é indispensável 
a vida em Mooniron e é vital recuperá-lo. Como de 
costume, o nosso amigo Rob Ot foi encarregado de 
o ir buscar ou não fosse ele o elemento sempre des- 
tacado para as missões mais complicadas. 

Esta é uma missão que só o Rob Ot poderá concluir 
“com êxito. Mas os problemas são muitos porque terá 


1 INK O: 


PAPER O: PRINT AT Za 12: GO SUB S: 
10;: GO SUR 600: LET Fg="". LET 12: LET 5=166 
KEvY=1: LET JOvy=0: GO SUB 1200: D | 24: RESTORE 12: 
IM M$(C3):;: LET SON=1: LET MEL) =" | B 3: LET Tus?: 
3º: LET M$G(B) "2º: LET M$(t3y=e"L" | =S0: GO SUB 3: 
LET HI=dO: GO TO SO 12: LET 5=166: 
& LET T=0: LET S8=166: nESTORE | E 20: LET S=Bê0: 








que atravessar cinco salas e, em cada uma delas, re- 
colher três embalagens luminosas que guardará em 
segurança. 

Entretanto, o perigo espreita a cada momento porque 
as hordas maléficas aproveitarão cada oportunidade 
que se lhes deparar para lhe tirarem a vida. 

Surpresas também não faltam. Mas, em contrapartida, 
o Rob Ot terá, à sua disposição, uma vida suplementar 
(que bem merece) e um prémio, à saída de cada sala. 

A chave dos «user defined graphics» ajudará quando 
tiver que entrar com os símbolos. 


LET T=11: RESTORE | 3: GO TO 11 

SO SUB 3: LET Te 3 FOR 9=1 TC 5 

LET 53=166: GO SU 4 READ D: BEEP .1,D+T: 
RESTORE 20. LET S&S Q IF INKEvV$<>"" THEN GQ TO 30 
LET T=2 RESTORE 10 NEXT G: RETURN 

GO SUB 3: RESTOR 11 GO TAGs 


LET T=6: GO SUB 
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12 DATA -12,0,-12,3,7,7-12,0,- 
To ,85,7 

13 DATA -24,5,5-12,8,12,-24,5, 
5-24,8,12 | 

14 DATA -24,-2,-2-24,2,5,5-24, 
2 ,-2-24,2,5 

1S DATA. -24,3,3-24,7,10,10-24, 
3,3-24,7,10-24 


16 DATA -24,-4,-4-24,0,53,3-24, 
-4,-4-24,0,5-24 
“17 DATA -24,1,1-12,5,8,8-12,1, 
1-12,5,8 

16 DATA -24,-5,-S-1E,-1,2,2-18 
,-S;-5-12,-1,82 

19. DATA -24,0,-24,3,7,7-24,0,- 


12,5, 7?,?"-18,7-12,0,-24,-12,0,-24 


e0 DATA -24,0,-12,-12,7,7-12,0 
sed2,-12,7=12 

ei DATA -24,5,5-24,5-12,12,12- 
e4,5,5-24,-12,12 

&2 DATA -24,-2,-2-24,-2-24,5,5 


24, =D, -2-24,-2-D4,5 
23 DATA «24,3,3-24,3-24,10, «24 
/3,3-84,3-24,10 
24 DATA «DA «4 ;=12;-12,9,-12,+ 
&;<«Dá;=12,8 | 


25 DATA -24,1,-24,-12,8,-12,1, 
-24,-12,8 

26 DATA -24,-5,-24,-12,2,-12,- 
5, -24,-25,2 | 

27 DATA -12,0,-12,-12,7,-12,0, 
-12,-12,7 

30 IF INKEvY$="1" THEN GO TO 21 
Do 

31 IF INKEvY$="3" AND JOv=0 THE 
N BEEP .05,35: LET JOYy= LET KE 
Y=0: PRINT AT 11,8; INK 6; BRIGH 
T 1; FLASH 1;"3: KEMPSTON": PRIN 
T AT 14,8; INK 4; BRIGHT 1; FLAS 
H 0;"4: KEYBOARD" 

SE IF INKEv$4="4" “AND KEYV=Q THE 
N LET KEvy=1: LET Joy= EEEP .as 
,8S: PRINT AT 14,6; INK 4; BRIGH 
T 1; FLASH 1;“4: KEYBOARD": PRIN 
T AT 11,8; INK 6; BRIGHT 1; FLAS 
H 0;“3: KEMPSTON" 

42 IF INKEY$="2" THEN GG TO 30 
a 

41 IF INKEv$="0" THEN GO TO 7Q 

42 GO TO 30 

SQ GO SUB S1: GG TO Eq 

s1 


PRINT AT 2,0; 


ERIGHT 2; "mm 















MR. FOR G=0 TO 214: 
PRINT AT G,QO; BRIGHT 41;“]ã];A 
30; "84". NEXT & l 
Ssº PRINT AT 0,0; 
B;AT o,co,";AaT 1,co; “RS; Aar 
20,0; "MMS ;AT ci o; "mar co,co; 
“ME ,AT 22,30; "ME. RETURN «q 
E3 RETURN ç 
EQ POKE 2365S8,E: PRINT AT 1,148 
; INVERSE 1; MOQNIRON 
:“" O 1985 E.U.F 
61 PRINT AT &,8; 
es CL: 


4; ra 


“do gaga e 


"SAT 2,0; 


+; INK S; BRIGHT 
INSTRUCTIQNS";AT &,8; INK 
DEFINE KEvYS";AT 11,&; INK 
&; BRIGHT 1;"3: KEMPSTONC;AT 14 
58; INK 4;. BRIGHT 1;"4: KEYBORRD'* 
“;AT 17,8; INK 7; BRIGHT 41:;“0: E 
LAY GAME 

E2 IF KEy=1 THEN 'PRINT 
5 INK 4; ERIGHT 1; FLASH 
EYBORRD" 

63 IF JQOvy=1 THEN 
; INK 6; BRIGHT 1; 
EMPSTON" 

64 GO TO 2 


AT 14,8 
as de É 


PRINT AT 11,8 
FLASH 1,;,"3: K 


32. 


, 


";AT 20,8” 


MOONIRON 


100 REM 
101 FOR G=2 TO 12: PRINT AT G,2 


NEXT G . 

102 LET L&="GET READY FOR YOUR. 
MISSION": FOR G=1 TO LEN Lg: PRI 
NT AT 3.2+4G; BRIGHT 1;LG(GI: BEE 
P ,Q0oa.,Ss. BEEP .0goa,50. BEEP 
.20092,E0: NEXT & 

103 FOR v=1 TO 7: 
EEP .07,5-24: BEEP 
Ty: FOR vY=1 TOS: 
EEP .1,0-24: BEEP 
Y: FOR v=1 TO q: 
P .Q7,5-24: BEEP 
' 


105 FOR G=0 TO 21: PRINT AT G,0 


BEEP .07,€: E 
.07,6-12: NEX 
BEEP .07,1: E 
0? ,-11: NEXT 
BEEP .07,6: BEE 
07 ,86-12: NEXT 


“+ NEXT G: GO SUE SCR 
106 FOR G=1 TO 2 
127 PRINT AT X,Y; 
1;B$&(G);AT X-1,Y; INK 7, BRIGHT 
O;HE(GI;AT X,Y-1;" C5AT X,Y42;* 
MT KT Fr CAT Amo YE” o 
108 IF JOvy=1 THEN GO SUB 9000: 
GO TO 113 

109 TF INKEYg=M$E(CI) AND 
N LET Y=Yy=1: LET RITE=Q: 
Q0a, SS 

110 IF INKEYg=M$E (2) AND 
EN LET Y=zy+1: LET RIiTÊsa: 
2003,5S 

111 IF INKEV$&=M$E(3) AND vY+4<31 
AND RITE=1 THEN PRINT AT X,Y-1,º 

“SAT X,Y+415" GO SUE 1050 

112 IF INKEvV$=M$E(S) AND Y-450 A 


INK 4; BRIGHT 


Y»1 THE 
BEEP .Q 


Y+4<30 TH 
ECEP.. 


ND RITE=O0 THEN PRINT AT X,v-1;" 
“AT X,V+41;" *": GO SUB 1000 
1132 IF SCREEN$ (X+1,Y)=" THEN 
GO SUE 200 
117 IF BALL=1 THEN LET Y1=Y1-1 
118 IF Y1=5 THEN LET BALL=2 
112 IF BALL=2 THEN LET Y1=Y1+1 
190 IF v1=23 THEN LET BALL=1 
121 PRINT AT X1,Y1; INK S; BRIG 
HT LM AT XL;VI-T: INK DP" “GA 
T XL, YL41;" “SAT XISINT,VA; INK 


S; BRIGHT 1;“A"V;AT XI+INT.VI-A; 
ENKR O; CAT XISINT,YI4D;O “SRT 
X1+INT+2,Y1; INK 5; BRIGHT 12;"8&" 
AT XI+INT42,Y1-1; INK Q;" ";AT 
XI+INT42,Y1+1;," 

124 GO TUE 400: NEXT G: Gà TO 12 
DE. 

00 REM 

eQ) PRINT AT X,Y-1;"º “LAT X,Y+41 


DE = 43 Meta W=ds " a Rá Xe Y dita O 


1 


O2a LET X=X+1: PRINT AT X-2,Y;º" 
“AT X,Y,BECCI,AT X-1,Y;H$E(G): 


fi 


OUT 254,0: BEEP .008,55-X: OUT 2 
S4,63-X: OUT 254,54+X: OUT 254,7 
BORDER Q | 
203 IF SCREENS (X+1,Y)=" " THEN 
Go TO 202 
204 IF SCREENS (X+1,.Y)<)" " THE 
N GO SUB 400: RETURN 


300 REM 
301 FOR G=2 TO 19: PRINT AT G,2 
NEXT G 


302 LET Lg="DEFINE KEYS": FOR G 


=1 TO LEN Lg: PRINT AT 3,9+6G; BR 
IGHT 1;L&(G): BEEP .2009,50: BEE 
P .0004,53: BEEP .0009,60: NEXT 


G 
sSQOsS LET M$) ="T": 
» INK 85; 

“a BMR 75 
304 PRINT AT 5,19, FLASH 1;M$(1 


PRINT AT 5,6 
BRIGHT 1,"“kKEY FOR LEFT 


mes... . 


) 
305 


IF INKEYg<>"" THEN PRINT AT 





9,14; FLASH 1; BRIGHT 1; INKEYS$: 
LET M$(1) =INKEY SG: PAUSE S: PAUS 
E 10: GO TO s1a 


sS26 CO TO a04 

SãO LET MET) ="9”: 
&; INK 6, BRIGHT i;“kKEY FOR RIGH 
+ Ca ANK 4). FLASH £; 7” 

“11 PRINT AT 10,20; FLASH 1;M$( 
2) 

312 IF INKEvyg<>"" THEN PRINT AT 

10,20, FLASH 1; BRIGHT T; INKEYS 

LET M$(2) =INKEYG: PAUSE S: PAU 
SE 120: GO TO 320 


313 GO TO 311 

320 LET M$(3)="7" 

6; INK 4; BRIGHT 1; “KEY FOR JUMP 
INK 7; FLASH 1;"2" 

321 PRINT AT 15,19; FLASH 1;Mg( 

3 

322 IF INKEY$<>"" THEN PRINT AT 


| 
PRINT AT 10, 


PRINT AT 15, 


13,19, FLASH 1; BRIGHT 1; INKEYS 
LET HM$E(3) =INKEvYG: PAUSE S: PAU 
“E 10: GO TO 330 


ses GO TO 321 
330 LET L$E="HAPPY UITH THESE KE 


vY5 2": FOR G=1 TO LEN Lg: PRINT. 
AT 18,3+G; BRIGHT 1;L$(G): BEEP 
.0009,50: EEEP .000a,ss: BEEP .Q 
003,60: NEXT G 

3SS1 IF INKEvy$="v" THÉN FOR G=2 
TO 19: PRINT AT 6,2;"' 

NEXT G: GO TO 

Ba 


332 IF INKEY$="N" THEN FOR G=2 


TO 19: PRINT AT G,&; 
NEXT G: GO TO 
300 
G33 LET KEVv= LET Jovy=e: Go TO 
66.3 À 
400 REM 
401 IF ATTR (X+1,Y1=70 AND BULB 
=Q THEN FOR T=0 TO 7: PRINT AT X 
+1,Y; INK T; BRIGHT 1;“D": BEEP 
.007,T+4S: BEEP .00S,T-4: NEXT T 
FOR 5=1 TO 40: OUT 254,54: QUT 
254,0: NEXT S: BORDER O: LET BU 
LE=1: LET SCORE=SCORE+10: PRINT 


BO,AT 1,8; SCORE 
402 IF ATTR (X+1,Y) =250 AND BUL - 
B=1 THEN LET WIN=UIN+1: FOR T=1 
TO 10: BEEP .00S,T+20: OUT 254,7 
BEEP .005S,T+25: BEEP .005,T+30 
NEXT T: LET BULB=O: BORDER OQ: 
IF UWIN=3 THEN GO SUE 500 | 
403 IF ATTR (X+1,Y) =25 AND BULB 
=1. AND WIN=2 THEN GO SUB 500: LE 


T BULB=Q: LET UWUIN=O 
404 IF ATTR (X+1,Y)=249 THEN GO 
SUB I1Z2Q 


40S IF ATTR (X+1,Y)=69 THEN GO 
SUB 750: IF LIFE<Q THEN GO TO 700 


4DE IF ATTR (X,Y]=69 THEN GO SU 
B 750: IF LIFE<Q THEN GO TO 700: 
REM XXXXXXXXXXXXXXX AMAM AAA 
6600006400 060000000000060,0061 
ES 0 060000000 0000.00000000.6,0,0,64 
06,4 0,8.4 004405 4406460666 444 dd 
XXXXXXXXX THEN THEN THEN THEN TH 
EN THEN THEN THEN THEN THEN THEN. 
THEN THEN THEN THEN THEN THEN T 
HEN THEN THEN THEN THEN THEN THE 
N THEN THEN THEN THEN THEN THEN 
THEN THEN THEN THEN THEN THEN TH 
EN THEN THEN THEN THEN THEN THEN' 
THEN THEN THEN THEN THEN THEN T 
HEN THEN THEN THEN THEN THEN THE 
N THEN THEN THEN THEN THEN THEN 
THEN THEN THEN THEN THEN THEN TH 
EN THEN THEN THEN THEN THEN THEN 
THEN THEN THEN THEN THEN THEN & 
TOP STOP STOP STOP STOP STOP sTAQ 
P STOP STOP STOP STOP STOP STOP 
STOP XXXXXXXX TO TO TO TG :;; TO 





TO 
407 IF ATTR (X,Y1=€9 THEN Go su 
E 7EQ0: IF LIFE<O THEN Go TO Tao 


410 RETURN 





sQ1 FOR G=1 7 21 PRINT AT G.a 
, BRIGHT 1; pi MEDNRUALO eegittsaeis 
EMT ; AT G-1,1;" 


“ru NEXT E 
LET L$&="BONUI 
PRINT AT & 


“oe FOR H=1 TO 3: 
“: FOR Kel TO LEN LS: 


s11+K; INK RND&7; BRIGHT ERND;L&( 
RI: NEXT Kº> NEXT H 

203 FOR G=1 TO 7: PRINT AT S,12 
» INK G; BRIGHT 1, “BONUS”: BEEP 
«004,25+G: GBEEP .0009,40+G: BGBEEF 
«2009,50+G: NEXT G 

S205 FOR I=1 TO 15: LET SCORE=5C 


ORE+1: PRINT BQ;AT 1,38, SCORE: BE 
EP .005,45: NEXT IT 

207 LET BULBE=Q: LET WIN=O0: LET 
X=18: LET Y=2 


S0S IF SCORE>S0 AND SCORE<100 OQ 
R SCÓRE>150 AND SCORE<200 OR sCco 
RÊE>»250 AND SCORE<320 OR SCORE>»30 
Q AND SCORE<400 THEN GO TO 546 

Ssio GO TO 549 

S46 LET L$="AN EXTRA LIFE:": FO 
R T=1 TO LEN L$: PRINT AT 8,8+T- 
1; INK 6; BRIGHT 2;L$(T): BEER . 


2009,60: BEEP .200092,55: BEEP ,00 
09,50: NEXT T: GO SUB 547: LET L 
IFE=LIFE+1: GO SUB 547: GO TO 54 
q 
47 PRINT AT 10,14; 
EeIstT 12,14;8B901);0 “ij 
FE: BEEF .009,50: RETURN 
S49 PAUSE 2S 
IF FUD=z1 THEN LET 


BRIGHT 1;H$ 

INK S;LI 
SCR=SCR+41 
IF BUD=1 THEN LET SCR=SCR-1 


IF SCR=25SQR THEN GO SUB 535Q 


OQ: Ga 
SEM 
Mo M 

TURN 
Era 
EQ1 
LET 
EO: 
EQ 
EQsS 
gos 
ES 
SCRE 
EO? 
AR 
701 


ERIGHT 12, 


MOONIRON 


SUE SOR 
FOR T=7 TO Q 
Lã NEXT T 


REM EEECEGISSEM 
LET Eua: LET Fal: 
RITE=Q. LET xXx=189: 
LET XI=B: LET 
LET H$="DB" 
LET SCORE=O: 
LET SCR=3000: 
LET EULB=0: 
=Q 

RETURN 

REM HEGERENAES 
FOR G=1 TO 
INK 5S;* 


STER 


GO SUR 


Yi10 





-1: 
CR: 





FAPER 
RE 


LET -P=7: 
LE 


Y =a 


LET Esg="ARº 
LET LIFESS 
LET UIN=Q 

LET BALLS: 


LET 


ei: PRINT AT G,Q 


(erprsgereeee eee 


CEE rms "MT G-1,0,* 


BEEP 


0: 
705 
GAME 
SUB 
“O4 


TT () 


=2 


1 : e di 
“Q& 


E by * 
15ET 


T 10,5; 


TO 
ERICHT 2;* 
G+1,15, 
PRINT AT 7,24; 


- QQDA, HEXT & 
CLS GO SUB 512 
FRINT AT 1,10; 
QUER IF SCORE>SHI 
1400 
PRINT 
ORE: 


SE é 
= 


ERIGHT 
*; SCORE 


INK 4, 
+ INK 
INK S; 

ENK 7; 
q S2TEP 2. PRINT AT 


NAMES AT 








IF Fg='"" THEN LET 

IF F$<>** THEN LET 
PRINT AT 15,3; INK 
HIGH: EMA SMA 
Ev : INK E;NS$: 


ea tp eee poem or men mmmrÃ “+. 
“05. IF SCORE<SO THEN PRINT AT 2 
E. 


Q, es 
+» INK 


FLASH 1; BRIGHT 4; 
4; "PATHETIC 


ERICGCHT I1;&aCRE: 








SAAE AARASA! 


IH EA 


INVERSE 12;º 


Gã 


THEN 


1;AT &, 
FRINT 


ERIGHT Q; "SCREEN 


FOR G 
s+G,16, 
“AT 4+ 
NEXT G: 
;AT 5,2 


NgG=]"NOBOD 


N$&=F g 

*; BRIGH 

EN 22º 

PRINT 

8,6, "QUERALL RATING";AT 15,7; 
) 


AT 


PAPER 


1 
“e 





“09 IF SCORE»SQ AND SCORE<Se TH 
EN PRINT AT 220,11; BRIGHT 12; INK 
>, “NOT BAD“ 


710 IF SCORE>100 THEN PRINT AT 
&o,14; ERIGHT 1, INVERSE 1; INK 
+; "FAIR" 

711 IF SCORE>150 THEN PRINT AT. 
2o,14; BRIGHT 1; INVERSE 1; INK 
E; "GOOD" 

“12 IF SCORE>200 THEN PRINT AT 
202,11, FLASH 1; "VERY G00D" 

“13 IF SCORE>300 THEN LET L&="B 
RILLIANTO: FOR G=1 TO LEN L$&: PR 
INT AT 20,10+G; INK INT (RND+7) + 

BRIGHT 1,L&E(G): BEEF .Q00a,s0o 
EEEP .0002,60: BEEP .0009,55:- 
NEXT G 

“14 IF SCÓRE:>400 THEN PRINT A 
20,12; FLASH 2; EXPERT” 

“13 IF SCORE>5S00 THEN PRINT AT 
22,11; INVERSE 1, ERIGHT 1;'"CHAM 
PION” 

“16 IF SCORE:>600 THEN PRINT AT 
eQ0, 12, FLASH 1; "MASTER" 

ve4 RESTORE 725: FOR G=1 TO d4s: 

RERD D,F: FOR S=1 TO D: BEEP .e 


- 
= 


“j » 


mn 
nt 


mn 


LF INKEYrS<>"" THEN GO TO 75 


m 
mn 
m 
m 
m 
mn 


Mm =] 
Q 
ã D 
+ x 
D 
Mao: 


in en 
“Mm 
Prom E 


Mn - 


m 
O = 


O 
m 


PINA EM 


J =) 


3 =) «1 p o fo my 


=] 
[A RS Ta] 


“- 


om EM 


“J fÚ - 


“pitomo 
ST e- N 
po - 
“j . 
o fo iv - 
9 - 


1 
ca,e 
ALUSE 1008; 
PRINT AT G,2;" 
NEXT G: 


À 

q,e 

2,0 
p 


o mm - 


| mM e 
D 4 


TÚ 


J 
) 


mam E - 
f) 
E Gs 


GI = 
H 
-]| 


TO EQ 
FEM Mc da 
IF LIFE<O THEN GO TO 700 


á 


— q pa, 
R= TE: 


PRINT AT X<-L,Yy;”" 
TO 15: PRINT AT X,Y; BRIGHT O; 
sm XV" "AT X SS O “. BE 
EP .0002,50: PRINT AT. X.Y; BRIGH 
Tab laATX-L.V-L;e CAT X-IL,V4 
+ ba e O td BEEP «200a,4 
S. NEXT S: PRINT AT X,Y; INK O;" 
“: LET LIFE=SLIFE-1: FOR 5=15 

2 STEP -1: PRINT AT BLO,S; INK 
PAPER 7; BRIGHT 1; “: BEEP. 
004,45: NEXT & 

7E4 FOR 5=15 TO 2 STEF -2: 
T AT BLO,S; INK Q;" “: BEEP 
S,25: NEXT & 

756 LET X=BLO: 
T Ds; 
N 

ao REM SCORE ETO, 

aQ1 PRINT AT 0,0; BRIGHT 1; INY 
ERSE 1;“H': FOR F=1 TO LEN L5: P 
RINT AT Q,0+F; BRIGHT 1;L$(F): B 
EEP .0009,50: BEEP .0009,55: BEE 
P .00092,60: NEXT F 
“ 902 PRINT AT 0,1+F-1; BRIGHT 4; 

INVERSE 1;"8": PRINT AT 0,25; I 
NK S;"0"; INK 7; BRIGNT 1;LIFE;" 

903 PRINT AT 1,0; BRIGHT 1; "MR 
ES ER EEE A 
T 0,31; INVERSE 1;'"A' 

904 PRINT HBO;AT 0,0; INK 7; PAP 
ER 1; BRIGHT 1; "DFVV[[TTPPS 
TR; AT 1,0; “BRESCOR 
Em MIGHT MRRESCREENE ' 

aos PRINT HBQO;AT 1,8; INK 7; 


FOR 5=1 


To 


E - 
mt | 


PRIN 
«22 


LET Y5=3: PRINT À 
BRISET cd LIFE 


FRINT 





PAP 


ER 1; BRIGHT 1; SCORE;AT 1,18,HT; 
AT 1,29; SCRE 

| 906 RETURN 

1000 REM 

12001 LET X=X-1: PRINT AT X,Y; IN 
K 4; BRIGHT 1;B$&(G);AT He)sY5 IN 
K 7; BRIGHT Q,H&(G): PRINT AT X, 

Paio CAT Mat Pei" CAT R$hsYi 
É SEM) Mr SH] Xs5T$I1;0 Cia 
Webybagi" CAT Wes) O 

1002 FOR T=1 TO 4: LET Y=y-1: GO 
SUB 1003: NEXT T: GO TO 1010 
1003 PRINT AT X,Y; INK 4, BRIGHT 
1;B&(G);AT X-1,Y, INK 7; BRIGHT 
Q; HE (G) 

1004 PRINT AT X,Y+412;" “";AT X-1,Y 
+12," “SMT Mel Y;” O 

1005 BEEP .20009,55+T: RETURN 
12010 LET X=X+1: PRINT AT X,Y; IN 

K 4; BRIGHT 1;,B$&(G);AT X-1,Y; IN 

K 7; BRIGHT 0;H$&(G);AT X,Y+1;" 
AT X-L,YVI4L,O CAT X-I,V-1;" “;A 


É RNA” Kat) é 
É Ra 


1050 REM 


“;AT Resta: 


1051 LET x=X-1: ca SUE 10553: FOR 
Ts1 TO 4: LET YW=Y741:.G0 <UB 105 
q: NEXT T:; GO TO 1055 

1052 PRINT AT X+41,V;" “";AT X,Y; 


INK 4d; BRIGHT 1;ES(G);AT X=-1,Y; 
BRIGHT Q; INK 7;H$(G);AT X,Y-1;" 
CAT Robot ME KAT) 
105% PRINT AT X,Y; INK 4; ERIGHT 
L;B$(G);AT X-1,Y; INK 7; BRIGHT 
SEMSE SAS MoY=lp” CSERMT X.V4IE” 

AT ELE AT May c4 
EEEF .00Ca,SS+T: RETURN 

1054 RETURN 
1085 LET X=X+41: 
K 4; BRIGHT 


PRINT. AT X,Y; IN 
1:6B$(G);AT X-1,Y; IR 
K 7, BRIGHT 2;H$S(G);AT X,Y-1;" 
AT XoY+IL,UO C;AT X-L,Y-1,0 “SAT 
K-1,Y41;0. C5AT X-2,Y;0 ": RETURkA 
1199 REM 
1200 RESTOÓRE 1200: FOR G=USR 
TO USR “Ut+7: READ S: 
NEXT G: BORDER Q: 





tds — od 
POKE G,S: 
PAPER Q: INK 


34 


RETUR . 


*: ERIGHT 
1201 DATA 
10 
S0e 
EQ 
1203 DATA 
est ,2c4 
DATA 


DATA 


mam - 


to m- 


PM mn 
tu = 


PeluNEREGOOhM 
, O 


3 


PRE E 
PE DOO 
Q 
T 
-| 
o 


om 
há 


[o *. 
Mc) 
Le 
EE) 
+ 
TE 


pa 
foro to mca po po - 


Q 


ú 
rio 
-j (nA 


nn 


Dr - 
rn 
Po pnGEeERaMERE- 


JSNANS E 


JH 
O - 


vo m- 
cn 
cn 


pe 
a 


e RD 
MD TU 


pt po 
mp - 
e ue 
To 

Sm 4 

Dm DD 


“J 


p 
m 


mn 
m 
4 mm 


9 


POr TOMAM 
Q 
T 


PE PPEmDREm 


Li o O 


RAS Ame m- 


LE 


ME 
mn 


Vl 


:1B&(GI, AT 
;/4%: BEEP 
NT AT X.Y 


1302 LET TRE= 
(RND4281 +42 

TRE=1 THEN LET X=INT 
TR 
TRE=53 
ATTR 


INT 

1303 
1304 
1305 
1306 


IF 
Rs 
IF 
IF 


XV 4150 


PRINT AT X,Y, 


MOONIRON 


Q: CLS 
62,94,191,279, 


2,60,94,191,179, 


q4,94,60 
94,94, 
126, 102,190,166,188,39 


126, 126,101,125,€1,228 


255,0,255,255,170,85,1 
188,902,133,92,188,92,1 


1953,171,1653,182,181,28 


Q,e2ess 
EQ ,dS4, 


q4,90,141,101,25 


RETURN 
REM TELEPORT 
E do 


PRINT AT X,Y- 
AT x=2,;7=8;* AT 

FOR F=7 TO O STEP - 
INK F; BRIGHT 1 


4 “1 +. 


X-1,Y;H$(G): BEEP 

.00AS,G+20: NEXT F: 
NT Kebos” * 

INT (RND43): 


E=2 THEN LET X=INT+42 
THEN LET X=INT+43 
(X+1,Y) =€A THEN GQ 


,213,171,288,271, 


- 009 
PRI 


LET Ys 


TO 1302 

1307 IF SCREENS 
GO TO 1302 
1306 IF ATTR 
1302 

1310 FOR T=Q0 TO 7: 


XL tis “ TAEN 


(X,Y)I=71 THEN.:GO: TO 


PRINT AT X,Y, 


INK T;B$(G);AT X-1,V;H$(G': BEE 
P .009,55: BEEF .005,33-T: NEXT 
T: RETURN | 
1350 FOR R=LIX TO & STEP -1: PRI 
NT AT R,VIX;"": NEXT R: RETURN 
1400 REM 
1401 LET HI=SCORE: LET Fg="". FO 
R Gs2 TO 19: PRINT AT G,2;” 

“": NEXT G 
PRINT AT 4,5; BRIGHT 1; INUVERS 
E-1;“vYOU HAVE A HIGH -SCORE;AT 1 
6,4; INVERSE Q; INK S;"PLEASE EN 
TER YOUR NAME;AT 18,7; INK 6; 
HAX & LETTERS1" | 
1402 POKE 23617,238: INPUT Fg 
1403 IF LEN Fg>S THEN GO TO 1402 
1405 FOR G=2 TG 19: PRINT AT G.2 
NEXT G 


1406 RETURN 
21200 REM IMSTRUCT ICrIS 
el0l LET R=0:-. LET L$z="The cruysta 
| MOONIRON has teen stolen,and & 
DvBoDl has teen sent to steal at k 
ack from the starship were 1 E od 
being kept, Before he can,re 
Cuê 4% HE Journey 
hrough five In each roo 
w,3 Light have tão kb 
taken the 
ÉFLGor Th 


ere are al: 





o fo tá 


mz a 
rooms. 
packets 
the Light Lock 
somewhere elsed. 
O Mmangy dangers 

Adscssán extra Life ,l 
:. and a tonus after 


wa LI 


[14] 


to 


tor 


Surprises a 
If deservuved 


m 


each COOM,SO.» «« «GOOD Lt! 

2102 PRINT Ha;AT 12.0, ERIGHT 12; 
MR ;AT 1,30," ". FOR G=1 TO &1- 
4. PRINT HQO;AT 1,1+4G; ERIGHT 1;Ll 
G&(GI,AT 1,1+6+1. "8" BEEF .00204, 
45+G/4: EEEF .0004,40+G/3. NEXT 

G: PRINT HO-AT 1,.1+4G+1; ERIGHT 1 
E": FOR G44 TO LEN L$-=31 

2104 LET L$=LgG(le TO 1 

2108 PRINT BQ;AT 2,2; INK 7, ERI 


GHT 1,L$(2 TO 
lo” EEEP .005,45 
2106 IF INKEvVg="1" 
TO O STEP -2: 
BRIGHT 1," 
BEEP 
ST+T/4: 


.. 


Ea 
E A 


THEN FOR T=30 
PRINT SO;AT 41,7T; 
EEEP .QQAS ,as+T/3 
+. 02004  40+T/-S: BEEP .Qaoa, 
NEXT T: PRINT se;ar 1,0; 
Go TO 2100 
2104 IF INKEvY$="2"" THEN PRINT ga 
;JAT 1,a l 
". GO TO 300 
2110 IF INKEYv$="Q" THEN PRINT go 
;AT 1,0;* 
“: GO TO 1004 
2111 PAUSE 1: NEXT G 
2112 FOR G=40 TO Q STEP -S: BEEP 
.005,G: BEEP .Q6,G: FOR H=1 TO 
2: OUT 254,54: QUT 254,2: QUT 25 
4,0: NEXT H: NEXT G: PRINT Ha; AT 
1,05: “SAT 1,80;” *: BORGER Q 
Go TO GQ 
arao REM 





SCREEUI 
3201 LET FUD=1: 


PDV, 
LET BUD=Q: LET E 
LOs90: LET INTOSS: LET Xi=5b: LET 
SCRE=1: LET L$=“THE RECEPTION RO 
om": GO SUE age 

s002 PRINT AT 21,0; BRIGHT 1; "fm 
Ro e NA A CANAS PODA NA RS A VN CIO N  4 MA SRD 
AT 21,10; INK 1; PAPER 7; FLASH 
1; "BU;AT 21,15; FLASH Q; PAPER Q 
; INK S;“Me;AT 21,20; "há" 
3003 PRINT AT 21,28; INK 


e; FAPE 





R 7; FLASH 1; BRIGHT as. LIS 


3004 PRINT AT 6,0; BRIGHT 4;: “tem 











—eo E E AS BIA PU EEN; A 
T 6,6; INK S;“M";AT 6,2;, INK 6;' 
a“;AT E,8; INK S;"“h": FOR G=11 T 
O 31 STEP 5S: PRINT AT €,G; INK S5S 
; ERIGHT 2;"“lg". NEXT G: PRINT AT 
6,11; INK 7; BRIGHT 1;"“E“ 
3005 PRINT AT 41, ps BRIGHT 1; "mm 
TE Tr cs EE EA (VAR 
INK S;AT Tere) 14;8; "Mo 
FOR G=11 TO 31 STEP 5: PRINT AT 
11,G; INK S; BRIGHT 1;"": NEXT 
G: PRINT AT 11,11; BRIGHT 1; "E“ 
AT 21,25; INK. 6; "tir 
SROE PRINT AT 1€E,0; ERIGHT bi 
En mec neçea E Em ER; 
INK S;AT 16,6;' Ar 16 EE "ha 
FOR G=11 TO 31 STEP S: PRINT AT 
16,G; INK S; BRIGHT 12;"lá': NEXT 
G: PRINT AT 16,11; BRIGHT 1;'"R"; 
AT 16,12; INK 6;"ti” 
3207 PAUSE S: RETURN 
2100 REM MEFEESISIFRES 
3101 LET BLO=20: LET INT=S: LET 


X1=S5: LET SCRE=2: LET L$="THE LA 
NDING BAY": GO SUB 900 

3102 PRINT AT 6,0; BRIGHT 1;" 
PATO VA NS 

T 6,2; INK ss"; 
8; “M'º;AT 6,28; INK 

Ss ENK Ss; MN” 

3103 PRINT AT' 11,0; 








as & S; “aa” 
E; .“" Pd . 


;AT 6,2 


BRIGHT 2;" 


0. 
4 


IN 
RT 24,1%; T 





S; "Es AT 11, 12; 
a, + “ha; ” 


INK. 
MT 11,2 


AT 11,18 
A - eo ao 
NR 5” 
3104 PRINT AT 16,0; 


= = EEE 
AT 16,7; INK S; 
T 16,19; - INK GS; "Is AT Ab; 
Ss; "Md; AT 16,253; "MM; AT 
(4 '* 
3106 PRINT AT 17,10; 
R Q; BRIGHT 1," 
1404" “SAT 193;24;" 
3107 PRINT AT 21,0; INK 7, EBERIGH 
TOO ET 
meme ;AT 21,27; INK 2; PAPER 7; 
FLASH 1; BRIGHT 1;"D";AT 21,15, 
INK 1; PAPER 7; FLASH 1; BRIGHT 
1; "EB" 
3108 RETURN 
3200 LET'BLO=18: LET INT= 
X1z6: LET SCRE<3: LET L$=" 
 LICON FACTORY": GO SUE Soo 
3201 PRINT AT 7,0; INK 7; 
do à 
ama . 
' S202 PRINT AT 153.0; INK 2; PAPER 
pd BRIGHT 1; ''Da ERES si Ra E ET UE 
Eniade pesa | INVERSE 1;" 
veta preso Ceni aS boss EPE LIDOS VORA 


ERIGHT 1," 





a - A 
15; 


1 E 4 = 


ar Ass: 


m 


INK 7; PAPFE 
ter a 


LET 
THE SI 


ERIGHT 


ea Ma . 


E A A A A A A A AD mm A A A A A 
eee Cie cm a e 


“We . Mae 













sSe203 PRINT AT 13,4; BRIGHT 1; 
Pe;jAT 44,4; NriAT is,51-4;"'" PR 
AT a Be;aT iss; pPr;a: 
EP Ga E E” 1 
3204 E dd AT 7.O; BRIGHT 1; 

“SAT papas FOR F=0 TG 314: 
PRINT AT 20,F; ERIGHT 1;"E AT 2 
1,F;“&:. NEXT F: PRINT BRIGHT a; 
AT 13,0; fee em 
TETeorTeeremmememmenes 
S225 PRINT INK S; BRIGHT 1;AT 7, 
So che; AT 7,18; “Mag ;arT 2,25; cias; 
AT 29,28;“M';AT 2,10; "MU;AT 7,4; 

INK &; "Es AT GDE a é 
3206 PRINT AT 13,1; INK E; BRIGH 
T .2;“la"; INK S;AT 13,6; "ha" 

3207 PRINT AT 13,14; INK 1; PAFE 








+ | 


EA 


MOONIRON 


R 7; FLASH 1; BRIGHT 1; “ulhe':AT 

15,10; INK S&S; FLASH Q; PAPER O; 

a; AT. 13,19; "NAM PAT 13,22; INK 

S;"sAT 13,24; INK “das e 

2208 PRINT AT 194,6; INK S; ERIGH 

T aí;"adt;ar 19,14; "MM ar 190,12; 
INK 1; FAFER 7; BRIGHT 1; FLASH 
1;"MU;AT 19,25; INK 2;"D" 

3209 RETURN 

| SEI is 

3301 LET ELO= 

LET INT=S: 


GS 
= 4 


tir, 4 
LET X=BLO: LET 
LET X1=S: LET SC 


RE=4: LET L$g="THE TORTURE CHAMEBE 
R': GO SUB 9204 
3302 PRINT AT €E,Q; 


INK 7; BRIGHT 





LT SARA RNA SARA qa 
sa a ANTI XANENEE!) LAN AAA MANSA! 
=— ="; AT. 11,0; "85 ss ES SE 

e teses usas Essas ese 

ss inss “;AT 16,0; Gm 
re rrmTree er 

CR] ;AT 21, 
Q; INK 3; PAPER 6; BRIGHT 1; "CBE 


3303 PRINT INK 5; 
S;"tiv; AT 6,2;“M";AT 6,6; "MM" ;AT 

6,15; “M";AT 6,17;"M';aT 6,26; "hM 
;AT 6,29;“Mº;AT 21,4;"M";AT 11,6 
SM e;AT 13,244; "M';AT 44,416; "MM :A 
T 2i,28:º"Nº;AT 11,006; ºMC;AT 41,8 
8;"M';AT 16,8; "Mº;AT 16,114;ºM':A 


T 16,19; "AAA! ;AT 16,24; "MM"; AT 
16,29, “M';AT 21,10; "“Má";ar 21,14; 
ha - AT = 4 3 es; “ha 


3304 PRINT INK 6; BRIGHT 1;AT 6, 
26; "LAT 124,27; "LAT 46,24; "E 
3306 PRINT INK 1; PAPER 7; BRIGH 
T 42; FLASH 4;AT 44,1;“H';AT 11,3 
2; "B';AT 21,25; "BB; INK 2; PAPER 
2107 .214,8; "O 
3307 PRINT AT S,0;"P";AaT e,s1;"r 
“18T 128,4; "FP"; 14,5; "Pesar 42, 
11; "POeAT 12,90;"Vº;AT 12,28; "F" 
AT 27.8" Par Er, "PSar Lo, 
:“PFAT 27,105" PP RT 172,85; "FP"; 
AT 17,31; 
3308 PRINT AT 6,5;" 
“AT. 16,44; “SAP SS“ “AT 38 
128; “;AT 27,085; “;AT G,o;AT 41 
2,22;" "; INK S; BRIGHT 1; FLASH 
RR 
3309 PRINT AT 2,0; INK 7; BRIGHT 
ERRA AAA A AAA ASA LAMA A Ai id 
PPPP" 
3310 RETURN 
3400 REM RESEEGEMITIER 
3401 LET BL 0=20: LET xX=20: 
=2: LET INT=S: LET X1=S: LET SCR 
E=S: LET L&=“THE GOAL IS NEAR... 
“": GO SUB 980 


“SAT 17, 145" 





3402 PRINT AT 6,0; INK 4; BRIGHT 
1; “BRs É RanaSsE 
“5 INK 53; "ERRRSS 

GRE 
3403 PRINT AT 11,0; BRIGHT 1;"GE 
E, = = = 
= Ea 
3404 PRINT AT 16,0; BRIGHT G; "HE 
SE Mr SER “3 
INK 6; “HERE VY = = Pr 
3405 PRINT AT 21,0; BRIGHT 1;"Gm 


CESTOS Te 
FOR G=1 TO 31 STEP 2: PRINT AT 
21,6; INK 4; BRIGHT 1; "E". NEXT 
G: PRINT AT 21,31; BRIGHT 1;"D" 
3406 FOR G=16 TO 7 STEP 
T AT 6,885; BRIGHT 41;“E & 
G-1,25;,"% 7 7 *". NEXT G: 
AT 6,25; "E E E RAT 17,2S;'pr Fr 

Pr: 
3407 PRINT INK 5; 
1; “há; AT 11,13; "Mi"; AT 16,5; 


e 


“;87 


BRIGHT 1;AT 6, 
“hd; 


Es Yo 


PRINT. 


BRIGHT 1;AT 16. 





AT 16,11; ;AT 16,17; “ha :AT>I 
6.2o; "hº;AT 21,2; "Má";arT 21,7; cia 
;AT 22,11; "M'º';AT 21,14; "MAM; AT 
e1,21;"M';AT 21,25; "0004 MM D4:;a 
T 16,3; “ia” 
3408 PRINT INK 1; PAPER 7; FLASH 
1; BRIGHT 1;AT 6,7;"“B';AT 21,26 
CB CsAT 21,29; "BH, INK 2;AT 11,1 
9;"LW]; INK O;AT 21,18;"4*” 
3403 PRINT INK 6; BRIGHT 1;AT 6, 
Li: "AT 04,30; EC SAT RA, etr 
3410 RETURN 
ssa REM COMPLETIOM 
3501 CLS LET BUD=1: LET FWD=0: 
LET L$="YOU“VE REACHED THE CRYyS 
TAL.”": FOR G=1 TO LEN L$: PRINT 
AT 5,1+G; BRIGHT 1;L&(G): BEEP . 
0004,SS: BEEP .000a,50. BEEF .0o 
23,60: NEXT G 
3502 PRINT AT 12,0; BRIGHT 1;"=E 
 ILLIIILILILILIIILIIIII A 


CENAS INIIIAINTENDSEEONNENEREREENESET 


DO TT e ND 
e 





38053 LET X=11: LET v=2 

3504 FOR G=1 TO 2: PRINT AT X,Y; 
BRIGHT 1; INK 4;B$(G);AT X-1,Y; 
INK 7:H8(G); AT Hf=2* “SAT Ed 
Pi ad: “ > 

3505 FOR T=1 TO 7: PRINT AT 11,3 

OQ; BRIGHT 1; INK T;"“"B': NEXT T 

3506 IF Y=30 THEN GG TO 3510 

3507 LET v=v+41 

350S NEXT G 

3509 GO TO 3504 

3510 PRINT AT 11,50, INK 4; BRIG 

HT 1;E&(G) 

3511 LET L$&="VELL DONE,YOU HAVE 
IT": FOR S=1 TO LEN Lg: PRINT AT 
16,4+5; BRIGHT 1;L$(S): BEEP .e 

004,55: BEEP .Qoua,sa: EBEEP .qoa 

a,60. NEXT 5 

SS12 FOR G=1 TO & 

3515 PRINT AT X,Y; INK 4; BRIGHT 
1;B$(G);AT X-1,Y; INK T;H$(GI;A 

T XptddsO CMT KoLsVafs" 

3514 IF Y=10 THEN GQ TO 3516 

95158 LET VYavy-1: NEXT G: GO TG 55 
12 

SS16 LET L$=“"vYANOO!": FOR S=1 TO 
LEN Lg: PRINT AT X-1,v+4S; BRIGH 

T 1; FLASH 1;Lg(5S1: BEEP .oqa,4as 
NEXT S&S: PAUSE So 

3517 RESTORE 3520: FOR 5=1 TO 25 
READ A,B: FOR T=1 TO A: BEEP.. 

Q5,B: BEEP .04,B-12 

3518 IF INKEYg<>"" THEN RETURN 
GC SUB Sae 


35819 NEXT T: NEXT S 

3S20 DATA 3,5,3,5,1,0,2,5.3,12,3 
ED, 7,1,8,83,8,1,8,2,2,2,20,1, 10 
Ea Er 2,12,3,5,2,5,2,7,2, 


“- 


ja 
= 


OD, h,0,;8,7,1,7,/8:5:,80,85 

3521 RESTORE 12: FOR F=1 TC 166: 
READ Z: BEEP .1,7+412.5 

3522 IF INKEY$:>"" THEN GO TO 35 
So 


35253 NEXT P 

3530 PRINT AT X,Yw, 
1; IARA q a E des 

Ea NAS CAT x-L,Y+42;" 

3531 LET vY=Y-1: PAUSE Ss 

sove IF Y=zQ THEN CLS 

sess GO, TO 3530 

20020 REM EEREFFONFFREENFENSE 

390094 IF IN 31=2 AND Ww>1 THEN LET 
Y=Y-1: LET RITE=0: BEEP .009,50 

9010 IF IN 31=1 AND Y<30 THEN LE 

T Ya=Y+1: LET RITE=1: BEEP .009,4 

o 

292011 IF IN 31=16 AND v+4:30 AND 

RITE=1 THEN GO SUB 1050 

9012 IF IN 31=16 AND Y-4>0 AND R 

ITÊE=0 THEN GO SUB 120004 

9020 RETURN 


INF. 4, BRISHT 
INK 7,.H$&(G);A 


RETURN 


35 





“Juan Fradera é o autor deste jogo que foi concebido 
para o 48K. 

As reservas energéticas da terra estão a ponto de 
esgotamento total e, tanto os cientistas como os as- 
trólogos, estão profundamente empenhados em desco- 
brirem um planeta que consiga resolver a lenta agonia 
do ser humano. 

Finalmente, as investigações deram alguns frutos e 
a esperança renasceu ao ser deteciado um planeta ao 
que parece muito rico em minerais: o seu nome é Zoink. 

A missão salvadora está em marcha e uma nave 
transportando os peritos astronautas dirige-se para o 
planeta. 
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AP pe 
19 
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-INT iRND 
“TF ATTR td CF 


R idítfi,€ee1=214 THE 
1º: PRINT AT diri+d 
no GO SUB 2000: NEXT f: 


IF ATTR (d(f?i,ee) =105 THEN 
qo mM GLFIFL EC: ER TO 


Q RES ad AT gdifasl etraso CAT 
ENE A;0CRO: LEF GIFISsãEs 

: GO TO 2004 

1000 REM Muerte de nave 

1214 PRINT AT L, Cio INK 2: F 

RINT AT LL, Ce; PAUSE E 

P .QGE,-10: PRINT AT Lit,cc; KM: 
PAUSE 1: BEEP .008,-240: 

+, LLrJES: DES AE PRUSE 2: 

4 RA PRINT AT LL, EC aos. 

1: BEEP .0038,-1Q: PRINT AT 

+ mto BRER . 008, -28: BEEP 


-32 
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- Miyz-- Cmiy 
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: “mA QO-.D 
so —+ 
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ZOINK 


Porém, qual é o seu espanto quando verificam que 
o planeta foi anteriormente habitado. Há rastos eviden- 
tes de uma civilização que deixou provas da sua exis- 
tência por toda a superfície do planeta (minas, depósitos 
de combustível, caixas metálicas com minerais e até 
uma plataforma de aterragem de mísseis). 

A expedição terrena deverá pousar. nas plataformas 
e carregar os minerais para bordo da nave evitando, 
na medida do possível, roçar os depósitos de combus- 
tíveis que poderão explodir. 

Assuma-se como «salvador da Humanidade» e leve 
a cabo esta espinhosa missão. 


10220 GO SUB 3000 


1030 PRINT AT Ll,cc;" ": BEEP.. 
Q28.-20: LET Liv=Lliv-l: IF Lliv=0 
THEN PRINT AT 10,11; INK 7; PAP 


ER Q;, "CAME QUER"; AT 1% 1jrPitea 
ENTER para otro JUEGO: LF SE 
»=k THEN LET k=sc: INPUT “Introad 
Uuce tu.nonbre: “; LINE SS: LEI E 
G=(8 64" “It TO TU) 
1040 IF Liv=0 THEN PRINT AT, LE, 
+ INK AQ; "RECORD: 188; = hi 
NPUT LINE f%: IF Eg="" THEN' GO 7T 
Ô a790 
1045 IF Liv=0 THEN STOP 
12504 FOR f=1 TO 400: NEXT Ff: GO: 
TO 92900 
2200 REM explasian mici Les = 
2010 INK 2: PRINT AT d(f) ee; 
: PRUSE 1: BEEP .00a,-14: PRINT 
AT dif) ,ee;'X": PAUSE 1: BEEP .Q 
28 ,-2A: PRINT AT gif) ,ee;Ux": PA. 
USE 1: BEEP .,008,-3 PRINT AT dt 
f) ,ee; x": PAUSE 1: BEEP .008,-1 
Q: PRINT A a tt) Ce)”. PRUSE 12 
: BEEP .008,-20: BEEP .B208,-3A 
caca cú SUB 32000: INK E: PRINT A 
T dtrr,ERg;” *: RETURN 
SAGA REM Finat explasiarm 
3210 FOR m=1 TO 5: BEEP .008, -2QA 
é BEEF a A S 4 -30: BEEFP E as s 
K 3: NEXT m: RETURN 
4dG0o REM fuel acabado . 
4204 PRINT AT À, ca INK Q, FAPER 
ts DE ms 1200: GO TO IA 
Qga 
4500 REM Fin pantalila 
Sara IF ATTR FEL, cc)=z=1047 OR ATTR 
Ttitt,cc+1)=107 THEN GO TO 1000 
SAS IF ATTR (iLil,cc) =106 OR ATTR 
6 THEN LET sc==c+20 


(LL,cc+1)=108 
a 


SOLO TF NTIR (LL,teCis11i0 THEN LE 
T fuzfu+324 | 
S0LS LET S025€C+5800: LET Liv=Lliv+ 
INT (<c/1202000) - INT ipuriagda): L 
ET pu=INT (sc-/12000) +12G0A: TF AI 
1v>4 THEN LET Liv=á 
sara PRINT AT La&s 
INK 750460" FOR f = 
E: LET Fu=[U+100: 
S200 REM De finicior 
Ria RESTORE agra: 
: READ à: POKRE USR 


7,8, 


;RT Cs 
1 Tó 206. NEX 
co TO 


FOR f=z2A TO 
“alts+f,a: NEX 


31,63,2055,62,8,0 
, 255 , 124, 16, Ea, a& 
6,129 SS, 129. , 


— 


Vv- -nPa 
PENSO 
NS - De. - 
O - DS m 


- My. Tan 
Ty pa- SS 


Ne. OD 
-- pOEOM 


Qin O 


<R 








STD -CNN- pro 











129,129,82,36,152,25,3 | 
[66/36,25,152,36,66 16 ,/16,6 2E' e tierra han descubier 
52,25,36,0,8,0,72,2,64 16 5'E4' uai pescé o planeta, ZOINK, El c 
E, 1od , 100, NRO, 190 ,P4B, 198 104,0 veza en mic REF incalculakle riq 
6,108, 1208,56,16,16 2,0. á Ê e Ls EN mi NEFaltes NECESsSarics O 
200 RETURN 0, aca la tif- (rar ES Cs EF 
SA GO TO 4S4aA. REM EnL a o Pa E wr cello se ha Lanza 
, tom - ace de So Un: Sr: an e a DE .aiZa 
e Aa Ag centre fuel, base y a É 3 pa Bscirohaico A 
200 REM Pres à» Lina vez alla divisan QUE u 
a Corpo SPREAD me gd nEbrma DE spas anterior dE JO 
SS. INK O: PAPER 7. PRINT a piadas es RREO ENA maim3e. mM 
; PAPER 2; INK 7;" “Invacion = sa he da dE FUEL, caja 
O Fr = € si OT Ads bolso bóda LUB MineraLes, q 
U; pa RM MR IRA A is PA 
a720 PRINT “Tu mizion es sablir 
e: = ur mo 3 ae ia pai - 3 lii d 
Mude. ig daria 
RR SR EM Las PLACE PORNOS udne 
a pa SR AS a chocar estar 
18; "OLS : PRINT “na, miss lo tu BE 
2. RE a , do, miZil,. TU pf 
é j pis MINE CoOrm-tora iz pn» 
E : PRINT AT 4,15; 1 n cuuo caso per-deras una de (as 
m atra - as e ) Ja -. 
9030 PRINT AL dO: 19; INK 7; [SER ca td Rd DE ci co 
;AT 12,4;' 13,522: "sSAZo" 250 PRI ' 
aaa PRINT ar 15/16; LI O. speed Re Lin a VEZ spúuscentadoa E 
;AT e ar Tra RASA *º ;A 17 25. "SAAP" us ST dE L 36 E' Latafarmas a = 3 
925A PRINT AT 168,6; INK E; "A"; ELTizale. asmaras SOB puntos 4 
14,16; "RU;AT 16,26; 08º RT aPdB PRINT «Si adenas caes Dobre 
22060 INK 3: PLOT 71: (3 cisternscL Poemas Caes SCbre 
20S0o ANO 55,5h0Bad4/: DRAW Bhrs ndo ro CONSGPIICS ES Poe Ui Rad 
Sa: S,16: DRA S,- ER IA dustaddo, rn miss 
or O DRAU 13,40: D apidez ci tepropuísãs hacia latri 
E | coT Los -=s tar e e a 1 
99070 PLOT 152,55: DRA mo mato peso cETEos DA dl FR 
S,-24: DRAW 16.-&: DRAW Lê, che e. una Nave o 3 perdera 
«DRA 5,52: DRAU Sor aaÉ, MENOS de | ado Litros E Econ 
e Pa [em DRAU =, e e. 4 350 | SE VIE - Ê Ef - -. poi - 3 o! 1 À 
9100 IF O o saêniácia ntecmitente-mente LG advertira i 
0g$='2" THEN Go PEQ FRINT. "AL pri Ei . 
9200 FOR F=1 TO 1O+RND416 0! Pos Witiles se Lancai do petnes 
0210 LET L=B+INT (RND413): LET c d9,*E vera, aisminuida E ee id 
=INT (RND+32): IF ATTR iLt.c)<:104 vEZ expla-. PRUSE à. BEED' É Uri 3 
9 THEN GO TO a21io Pega. ELO « PRINT “eh pero o qui ico 
9230 PRINT AT L.c; INK aver: NE É considerable-mente,o o “VMENtar 
) E 762 PRINT Ca A pe 
9300 FOR f=1 TO S+RND4S dp EE ir 
2310 LET L=2+INT (RND$19): LET c & dafs sã aterrizas, Yy hasta u 
=INT (RND+$432): IF ATTR (Lt,c)<>I1R nm maximo de cuatro tlas que 
9 THEN GO To asia EN a rECEnN Em EL Parel de control id 
Saao PRINT AT L,c:; INK 2o"Br. NE | L3s que nosquedan todavia si am 
XT Ff: GO TO SQ ontar com lLaque estamos Bá tota : 
QE020 REM Inctruccianes à EN ESe mG-mento). peido 
2505 PRINT ATL AS INK Ea a?770 PRINT “Teclas de contr 
NET RRT DOT erre ead » dzquierda idÊ aa 
134 KR 4" Juan » Derecha ; 
AVAVAVAVANA AMAVA VACA É - 1 RINT “"Obset = Bs o “o 
9510 LET ag=" à Tu minimave"  TAÉ 5; IN E; “699 
> | Reactores en marcha"; TAB. 9; INK 
seas FOR i=Q TO 7: IF i=5 THENN EA gon minerates"; TAB q; 
xT ; inas":; TAB 9; INK 4;" 
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Forma aerea"; TAB 9; INK Q;" pi 
ataforma de; TAB 12; “aterrizaje” 
L) Eds BRUSE. O: LET k=Q ' 
,30: CL | ; 
ER ar ELi je La pilão quê uent 
, Cogelos mand due SRRens 
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Normal. nã 'Opciones: à) 
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b$/32): FOR f=1 To! SS0A LET, 0S=INKEYS: | e. 
Fal-O ba AT (IO. Ei 7 ND o idoE” THEN géep TT 06 “or cõ 
E d+ : a já | 

NEXT E PRINT AT lá 6, e dedo Sue Divesiscalf a 
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O passarito travesso, a que Luís Miguel Lacosta deu 
o nome de PINKY, é especialista em meter-se em sa- 
rinhos. Mas, desta vez, o PINKY ultrapassou as marcas 
e, se não for a nossa ajuda e a do Spectrum 48K, não 
escapará. Travesso como é, Pinky irritou um terrível 
monstro do qual foge espavorido, mas de cuja ira não 
poderá escapar-se facilmente. 

Escondeu-se precipitadamente dentro do frigorífico 


sem pensar que o monstro não terá qualquer dificuldade . 


1 BEORCER * FAPER 7 ao RE E 
L5 : PRINT FLAZH 1L:AT «JO, "PARAR 
E LM EIN: POR Asa TO” 15 REEF 
cosd: NEM 12 ES 
- REM LUTS HMIGUEL LACOESTRA AIM 
ENEZ EC: BOATALLA CE FOQUTA,.I10,S, 
ZARAGOZA | 
là CLEDR EAdgaas SO aUÊ SGA 
eY GO FUEÊE SAJDA 
Q LET p=Pp+1: LET Ep=Pp+L+112 AM 
à WNMNDbrIprr)sir: LET dpi LEF ESB 
By BIB 4010: GU SUE SQEQ 
Ss) LET ex=INT iRMNE+S17) 4+2+1: LE 
T eu=IMT TRNÉ +92) 4541. IF mbBieu,e 
x) 445“ OR BEBES ipu-eu) <6 DER DES 
tpx-exi<ê THEN GO TO SA 
Se LEI ExXl=zEM: LET eUlséy: LET 
inkezINT iRNOS4) +45: PRINT INE 
nkesAT es ex 26: BT eN+AL ex:hé 
E BEE ; ne: BEEP ss É REEF 
sévdse: BEFP ,ESB,B BEEP:. xDrr 
ER sms! REEP «Bo ,E 
TA LET «sS=ENKEYS Go TO IAQB- Us 
Q AND iág='S" AMO pux:ldi-iãa BHO 
Gg="€" AND puslal ido AMD ig="7 
ARC: parsli-(ZQ AMO iB=]0G0 AND pu: 
221 +(290 ANG 6=]9"3 
o LET dps LEY PRILSPE= da LE 
metes. Px “us mM mALpUusSlL,PXI: + 
“O THEN GO TO JE 
sQ LEI Sázi AND Sászt: LET sta 
c+2: PRINT AT Ps.Ppx:;1 6; AT EU+L,EF 
X516: LEI k=lrdpã4s+sare: LET px= 
PEL: PRANT iNk PMI pu,pXsagtk T 
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A. TI Sm L:;d-:&0: GU TO LBR 
avo LET gdE=i: LET pulrpusld: FF 
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LL EDS THEN id Ft! 188 
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Co IMEN GU TO JSs 
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1 THEN GÓ TO 224 

180 LET exl=zex-1l: IF mbileg,exl) 
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PINKY 


em abrir a porta e tratar-lhe da saúde. 

É aqui que temos que dar uma mão ao nosso amigo 
traquinas. Teremos ambos que bombardear o monstro 
com todos os cubos de gelo que tivermos à mão até 
que ele se assuste e nos deixe em paz. 

«É muito fácil!», dirão alguns. O Pinky convida-os a 
experimentar tomando em linha de conta que todos 
os caracteres em maiúsculas e sombreados se devem : 
introduzir no modo gráfico. 
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HEXT FF: PRINT AT c+L, bx; FS:AT É 
BRLERSME Tl, bx: iB LET mbir+I, 
BE Ti BIAS LE nSLr cha TO 
Ex+11="18 GO TO ZAHAR 

Erà FOUR P=13 Tã es STEÊP &: PRIMN 
T HT r.beCcHitt TO fer: E “Eds bo: 
dsit TO t+l1: EEEP «2a, q: ME XT 

FF: RETUEIH 

EZQO IF pu=) OR máipy-(til ANE Pu: 
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EãY) LET m$ilpyu-D.px TO -x+11="00 
Co LET m$tpu-)L.EX TO pxsli="Dor: 
LET BXZRa: FOÉ r=PpPu-2 TO 1 STEF 
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